home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / Not Passing History.cpt / Not Passing History / card_6580.txt < prev    next >
Text File  |  1992-02-09  |  6KB  |  217 lines

  1. -- card: 6580 from stack: in
  2. -- bmap block id: 7410
  3. -- flags: 0000
  4. -- background id: 2688
  5. -- name: Bar
  6. ----- HyperTalk script -----
  7. on openCard
  8.   play "bar"
  9.   pass openCard
  10. end openCard
  11. on closeCard
  12.   show cd btn 4
  13.   play stop
  14.   lock screen
  15.   hide cd fld "Help!"
  16.   hide cd fld "SE/30"
  17.   unlock Screen with visual dissolve
  18.   pass closeCard
  19. end closeCard
  20.  
  21. on Automusicon
  22.   set cursor to 4
  23.   set icon of bg btn "ToBar" of cd "AutoMusicon" to 20081
  24.   visual zoom open
  25.   go cd "AutoMusicon"
  26.   play stop
  27. end Automusicon
  28.  
  29. on idle
  30.   send mouseup to cd btn 1
  31.   send mouseup to cd btn 4
  32.   pass idle
  33. end idle
  34.  
  35.  
  36.  
  37.  
  38. -- part 5 (button)
  39. -- low flags: 80
  40. -- high flags: 0000
  41. -- rect: left=224 top=40 right=74 bottom=258
  42. -- title width / last selected line: 0
  43. -- icon id / first selected line: 29100 / 29100
  44. -- text alignment: 1
  45. -- font id: 0
  46. -- text size: 12
  47. -- style flags: 0
  48. -- line height: 16
  49. -- part name: Top
  50. ----- HyperTalk script -----
  51. on mouseUp
  52.   if visible of cd btn 1 is true then
  53.     hide cd btn 1
  54.     hide cd btn 2
  55.   else
  56.     show cd btn 1
  57.     show cd btn 2
  58.   end if
  59. end mouseUp
  60.  
  61.  
  62. -- part 6 (button)
  63. -- low flags: 80
  64. -- high flags: 0000
  65. -- rect: left=225 top=71 right=105 bottom=259
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 29200 / 29200
  68. -- text alignment: 1
  69. -- font id: 0
  70. -- text size: 12
  71. -- style flags: 0
  72. -- line height: 16
  73. -- part name: Bottom
  74. ----- HyperTalk script -----
  75. on mouseUp
  76.   Automusicon
  77. end mouseUp
  78.  
  79.  
  80.  
  81. -- part 1 (field)
  82. -- low flags: 01
  83. -- high flags: 0000
  84. -- rect: left=76 top=183 right=312 bottom=476
  85. -- title width / last selected line: 0
  86. -- icon id / first selected line: 0 / 0
  87. -- text alignment: 0
  88. -- font id: 3
  89. -- text size: 12
  90. -- style flags: 0
  91. -- line height: 14
  92. -- part name: 
  93.  
  94.  
  95. -- part 3 (button)
  96. -- low flags: 00
  97. -- high flags: 0000
  98. -- rect: left=220 top=42 right=90 bottom=261
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 0 / 0
  101. -- text alignment: 1
  102. -- font id: 0
  103. -- text size: 12
  104. -- style flags: 0
  105. -- line height: 16
  106. -- part name: To Automusicon
  107. ----- HyperTalk script -----
  108. on mouseUp
  109.   Automusicon
  110. end mouseUp
  111.  
  112.  
  113. -- part 9 (button)
  114. -- low flags: 00
  115. -- high flags: 0000
  116. -- rect: left=76 top=38 right=86 bottom=140
  117. -- title width / last selected line: 0
  118. -- icon id / first selected line: 27513 / 27513
  119. -- text alignment: 1
  120. -- font id: 0
  121. -- text size: 12
  122. -- style flags: 0
  123. -- line height: 16
  124. -- part name: 
  125. ----- HyperTalk script -----
  126. on mouseUp
  127.   global ShotTimer
  128.   add 1 to ShotTimer
  129.   if ShotTimer = 3 then
  130.     show cd btn 4
  131.   end if
  132.   if ShotTimer = 12 then
  133.     hide cd btn 4
  134.     put empty into ShotTimer
  135.   end if
  136. end mouseUp
  137.  
  138.  
  139.  
  140. -- part 11 (button)
  141. -- low flags: 00
  142. -- high flags: 0000
  143. -- rect: left=81 top=37 right=167 bottom=163
  144. -- title width / last selected line: 0
  145. -- icon id / first selected line: 0 / 0
  146. -- text alignment: 1
  147. -- font id: 0
  148. -- text size: 12
  149. -- style flags: 0
  150. -- line height: 16
  151. -- part name: 
  152. ----- HyperTalk script -----
  153. on mouseUp
  154.   if the screenRect is "0,0,512,342" then
  155.     answer "Human, do you want to play a game?" &return &"(on a Mac Plus or Mac SE)" with "SE/30" or "Help!" or "Yes"
  156.     if it is "Yes" then open "Pinball Arcade"
  157.     if it is "SE/30" then popup "SE/30"
  158.     if it is "Help!" then popup "Help!"
  159.   end if
  160.   if the screenRect is not "0,0,512,342" then
  161.     answer "Unfortunately the pinball games do not work correctly with a LARGE screen." with "Risk It" or "Help!" or "OK"
  162.     if it is "Risk It" then open "Pinball Arcade"
  163.     if it is "OK" then answer "There's always the Juke Box."
  164.     if it is "Help!" then popup "Help!"
  165.   end if
  166. end mouseUp
  167.  
  168.  
  169.  
  170. -- part 12 (field)
  171. -- low flags: 81
  172. -- high flags: 2004
  173. -- rect: left=75 top=179 right=309 bottom=479
  174. -- title width / last selected line: 0
  175. -- icon id / first selected line: 0 / 0
  176. -- text alignment: 0
  177. -- font id: 3
  178. -- text size: 12
  179. -- style flags: 0
  180. -- line height: 14
  181. -- part name: SE/30
  182. ----- HyperTalk script -----
  183. on mouseUp
  184.   popup "SE/30"
  185. end mouseUp
  186.  
  187.  
  188. -- part 13 (field)
  189. -- low flags: 81
  190. -- high flags: 2004
  191. -- rect: left=57 top=175 right=321 bottom=493
  192. -- title width / last selected line: 0
  193. -- icon id / first selected line: 0 / 0
  194. -- text alignment: 0
  195. -- font id: 3
  196. -- text size: 12
  197. -- style flags: 0
  198. -- line height: 14
  199. -- part name: Help!
  200. ----- HyperTalk script -----
  201. on mouseUp
  202.   popup "Help!"
  203. end mouseUp
  204.  
  205.  
  206. -- part contents for card part 1
  207. ----- text -----
  208. Yea, there's one of these in every town, whether it's called Alphie's or  Al's‚Äîthe same slime ordering a drink, the same brooding loner, the same jukebox in the corner, the same creep banging away at the pinball machine, and always some empty-headed fool telling you his life story.  The history of a man, the history of a people‚Äîit's either filled with a passionate sense of purpose, or it's a boring tale of failure and misery or vain and empty success.  
  209.  
  210. -- part contents for card part 12
  211. ----- text -----
  212. Your SE/30 is too fast for the standard set of pinball games.On disk 3 of IF MONKS HAVE MACS... there is a slowed down set of these same pinball games that will run at a normal speed on your fast machine. The slowed down games are in a stuffit file called ‚ÄúSlowed Down Pinball.sit‚Äù. They come with instructions that explain how to install them. Read the instructions!  When you have installed them click ‚ÄúYes‚Äù or hit the return when asked, ‚ÄúHuman, do you want to play a game?‚Äù 
  213.  
  214. -- part contents for card part 13
  215. ----- text -----
  216. Pinball Construction Set, one of truly great computer games, is in the electronic equivalent of ‚Äúout of print‚Äù. These classic Pinball Construction Set templates bomb on a Mac II, and will not run on a large screen (unless you reduce it with Stepping Out‚Ñ¢) On a Plus or an SE they do not run smoothly (the ball jerks around) under multi-finder 6.02, but they run fine if multi-finder is turned off. I have no way of knowing what they will do under System 7.0. If you can't get them to run, at least you can see what they look like by opening their MacPaint documents them with any paint program.
  217.